home *** CD-ROM | disk | FTP | other *** search
/ QuickTime VR Showcase / QuickTime VR Showcase.iso / 3rd Parties / Software / Apple / AMT 2.1 New Features Demo / SOURCES / oIntro_One_19.k < prev    next >
Encoding:
Text File  |  1996-12-21  |  1.7 KB  |  96 lines  |  [TEXT/MPS ]
  1. object oIntro_One_19 is cDefaultContainer
  2. with
  3.     Binder is oBinder;
  4.     Label is 0;
  5.     Items is [
  6.         oKeyboard_Volume__19_9,
  7.         oOP_SCRP_PIC_19_1,
  8.         oOP_SCRP_MOV_19_2
  9.     ];
  10. end;
  11.  
  12.  
  13. object oKeyboard_Volume__19_9 is cKeyboardHandler
  14. with
  15.     Behavior is cDefaultBehavior
  16.     has
  17.         KeyDown(theTarget, theKey)
  18.         use
  19.             KeyMatch;
  20.             
  21.             do
  22.                 KeyMatch := theKey = '-';
  23.                 if KeyMatch then
  24.                     theTarget.DoDefaultMethod := false;
  25.                 
  26.                     oSoundVolume.StepIndexBy(-1);
  27.                 end;
  28.                 KeyMatch := theKey = '=';
  29.                 if KeyMatch then
  30.                     theTarget.DoDefaultMethod := false;
  31.                 
  32.                     oSoundVolume.StepIndexBy(1);
  33.                 end;
  34.                 KeyMatch := theKey = '+';
  35.                 if KeyMatch then
  36.                     theTarget.DoDefaultMethod := false;
  37.                 
  38.                     oSoundVolume.StepIndexBy(1);
  39.                 end;
  40.                 KeyMatch := theKey = 'n';
  41.                 if KeyMatch then
  42.                     theTarget.DoDefaultMethod := false;
  43.                 
  44.                     oBinder.Goto(oIntro_Two_18);
  45.                 end;
  46.                 KeyMatch := theKey = 'm';
  47.                 if KeyMatch then
  48.                     theTarget.DoDefaultMethod := false;
  49.                 
  50.                     oBinder.Goto(oMain_Menu_1);
  51.                 end;
  52.             end;
  53.         
  54.     with
  55.         Enabled is true; Shown is false; 
  56.         X is 30; Y is 24; Width is 0; Height is 0;
  57.     end;
  58. end;
  59.  
  60.  
  61. object oOP_SCRP_PIC_19_1 is cPictureHandler
  62. with
  63.     Duration is 140;
  64.     Supplier is oOP_SCRP_PIC;
  65.     Behavior is cDefaultBehavior
  66.     has
  67.         Onscreen(theTarget)
  68.             do
  69.                 oOP_SCRP_MOV_19_2.Run(true);
  70.             end;
  71.         
  72.     with
  73.         Enabled is false; Shown is true; 
  74.         X is 0; Y is 0; Width is 640; Height is 480;
  75.     end;
  76. end;
  77.  
  78.  
  79. object oOP_SCRP_MOV_19_2 is cMovieHandler
  80. with
  81.     Supplier is oOP_SCRP_MOV;
  82.     Behavior is cDefaultBehavior
  83.     has
  84.         Finished(theTarget)
  85.             do
  86.                 oBinder.SetTransition(oDissolve, 30);
  87.                 oBinder.Goto(oIntro_Two_18);
  88.             end;
  89.         
  90.     with
  91.         Enabled is false; Shown is true; 
  92.         X is 112; Y is 169; Width is 120; Height is 120;
  93.     end;
  94. end;
  95.  
  96.